Visual Basic Source Code

home *** CD-ROM | disk | FTP | other *** search

/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / excell1a / form1.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1999-10-09 | 40.1 KB | 1,401 lines

VERSION 5.00 Begin VB.Form Form1 BackColor = &H00FFFFFF& BorderStyle = 3 'Fixed Dialog ClientHeight = 6780 ClientLeft = 180 ClientTop = -90 ClientWidth = 9315 ControlBox = 0 'False Icon = "Form1.frx":0000 LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 6780 ScaleWidth = 9315 StartUpPosition = 2 'CenterScreen Begin VB.Timer Timer1 Enabled = 0 'False Interval = 1000 Left = 4080 Top = 3120 End Begin VB.CommandButton cmdZ BackColor = &H0000FF00& Caption = "Z" Height = 375 Left = 3360 Style = 1 'Graphical TabIndex = 29 Top = 5880 Width = 495 End Begin VB.CommandButton cmdY BackColor = &H0000FF00& Caption = "Y" Height = 375 Left = 2760 Style = 1 'Graphical TabIndex = 28 Top = 5880 Width = 495 End Begin VB.CommandButton cmdX BackColor = &H0000FF00& Caption = "X" Height = 375 Left = 2160 Style = 1 'Graphical TabIndex = 27 Top = 5880 Width = 495 End Begin VB.CommandButton cmdW BackColor = &H0000FF00& Caption = "W" Height = 375 Left = 1560 Style = 1 'Graphical TabIndex = 26 Top = 5880 Width = 495 End Begin VB.CommandButton cmdV BackColor = &H0000FF00& Caption = "V" Height = 375 Left = 960 Style = 1 'Graphical TabIndex = 25 Top = 5880 Width = 495 End Begin VB.CommandButton cmdU BackColor = &H0000FF00& Caption = "U" Height = 375 Left = 3960 Style = 1 'Graphical TabIndex = 24 Top = 5400 Width = 495 End Begin VB.CommandButton cmdT BackColor = &H0000FF00& Caption = "T" Height = 375 Left = 3360 Style = 1 'Graphical TabIndex = 23 Top = 5400 Width = 495 End Begin VB.CommandButton cmdS BackColor = &H0000FF00& Caption = "S" Height = 375 Left = 2760 Style = 1 'Graphical TabIndex = 22 Top = 5400 Width = 495 End Begin VB.CommandButton cmdR BackColor = &H0000FF00& Caption = "R" Height = 375 Left = 2160 Style = 1 'Graphical TabIndex = 21 Top = 5400 Width = 495 End Begin VB.CommandButton cmdQ BackColor = &H0000FF00& Caption = "Q" Height = 375 Left = 1560 Style = 1 'Graphical TabIndex = 20 Top = 5400 Width = 495 End Begin VB.CommandButton cmdP BackColor = &H0000FF00& Caption = "P" Height = 375 Left = 960 Style = 1 'Graphical TabIndex = 19 Top = 5400 Width = 495 End Begin VB.CommandButton cmdO BackColor = &H0000FF00& Caption = "O" Height = 375 Left = 360 Style = 1 'Graphical TabIndex = 18 Top = 5400 Width = 495 End Begin VB.CommandButton cmdN BackColor = &H0000FF00& Caption = "N" Height = 375 Left = 3960 Style = 1 'Graphical TabIndex = 17 Top = 4920 Width = 495 End Begin VB.CommandButton cmdM BackColor = &H0000FF00& Caption = "M" Height = 375 Left = 3360 Style = 1 'Graphical TabIndex = 16 Top = 4920 Width = 495 End Begin VB.CommandButton cmdL BackColor = &H0000FF00& Caption = "L" Height = 375 Left = 2760 Style = 1 'Graphical TabIndex = 15 Top = 4920 Width = 495 End Begin VB.CommandButton cmdK BackColor = &H0000FF00& Caption = "K" Height = 375 Left = 2160 Style = 1 'Graphical TabIndex = 14 Top = 4920 Width = 495 End Begin VB.CommandButton cmdJ BackColor = &H0000FF00& Caption = "J" Height = 375 Left = 1560 Style = 1 'Graphical TabIndex = 13 Top = 4920 Width = 495 End Begin VB.CommandButton cmdI BackColor = &H0000FF00& Caption = "I" Height = 375 Left = 960 Style = 1 'Graphical TabIndex = 12 Top = 4920 Width = 495 End Begin VB.CommandButton cmdH BackColor = &H0000FF00& Caption = "H" Height = 375 Left = 360 Style = 1 'Graphical TabIndex = 11 Top = 4920 Width = 495 End Begin VB.CommandButton cmdG BackColor = &H0000FF00& Caption = "G" Height = 375 Left = 3960 Style = 1 'Graphical TabIndex = 10 Top = 4440 Width = 495 End Begin VB.CommandButton cmdF BackColor = &H0000FF00& Caption = "F" Height = 375 Left = 3360 Style = 1 'Graphical TabIndex = 9 Top = 4440 Width = 495 End Begin VB.CommandButton cmdE BackColor = &H0000FF00& Caption = "E" Height = 375 Left = 2760 Style = 1 'Graphical TabIndex = 8 Top = 4440 Width = 495 End Begin VB.CommandButton cmdD BackColor = &H0000FF00& Caption = "D" Height = 375 Left = 2160 Style = 1 'Graphical TabIndex = 7 Top = 4440 Width = 495 End Begin VB.CommandButton cmdC BackColor = &H0000FF00& Caption = "C" Height = 375 Left = 1560 Style = 1 'Graphical TabIndex = 6 Top = 4440 Width = 495 End Begin VB.CommandButton cmdB BackColor = &H0000FF00& Caption = "B" Height = 375 Left = 960 Style = 1 'Graphical TabIndex = 5 Top = 4440 Width = 495 End Begin VB.CommandButton cmdA BackColor = &H0000FF00& Caption = "A" Height = 375 Left = 360 MaskColor = &H0000FF00& Style = 1 'Graphical TabIndex = 4 Top = 4440 Width = 495 End Begin VB.CommandButton Command2 BackColor = &H00FF0000& Caption = "&New Game" Default = -1 'True BeginProperty Font Name = "Comic Sans MS" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 6600 Style = 1 'Graphical TabIndex = 2 Top = 6120 Width = 1215 End Begin VB.CommandButton Command1 BackColor = &H00FF0000& Caption = "&Exit" BeginProperty Font Name = "Comic Sans MS" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 7920 Style = 1 'Graphical TabIndex = 1 Top = 6120 Width = 1215 End Begin VB.Frame Frame1 BackColor = &H00FFFFFF& BorderStyle = 0 'None Height = 5175 Left = 4680 TabIndex = 3 Top = 720 Width = 4335 Begin VB.Line lin9 BorderColor = &H00FFFF00& BorderWidth = 4 Visible = 0 'False X1 = 3960 X2 = 3000 Y1 = 2520 Y2 = 1920 End Begin VB.Line lin8 BorderColor = &H00FFFF00& BorderWidth = 4 Visible = 0 'False X1 = 2040 X2 = 3000 Y1 = 2520 Y2 = 1920 End Begin VB.Line lin11 BorderColor = &H0000FFFF& BorderWidth = 4 Visible = 0 'False X1 = 3720 X2 = 3000 Y1 = 3720 Y2 = 3000 End Begin VB.Line lin10 BorderColor = &H0000FFFF& BorderWidth = 4 Visible = 0 'False X1 = 2280 X2 = 3000 Y1 = 3720 Y2 = 3000 End Begin VB.Line lin7 BorderColor = &H00FFFF00& BorderWidth = 4 Visible = 0 'False X1 = 3000 X2 = 3000 Y1 = 3000 Y2 = 1920 End Begin VB.Shape lin6 BorderColor = &H00FF0000& BorderWidth = 4 FillColor = &H00FF0000& Height = 855 Left = 2520 Shape = 3 'Circle Top = 1080 Visible = 0 'False Width = 975 End Begin VB.Line lin5 BorderColor = &H00FF00FF& BorderWidth = 4 Visible = 0 'False X1 = 3000 X2 = 3000 Y1 = 1080 Y2 = 480 End Begin VB.Line lin4 BorderColor = &H0000FF00& BorderWidth = 4 Visible = 0 'False X1 = 720 X2 = 1560 Y1 = 1440 Y2 = 480 End Begin VB.Line lin3 BorderColor = &H000080FF& BorderWidth = 4 Visible = 0 'False X1 = 3000 X2 = 720 Y1 = 480 Y2 = 480 End Begin VB.Line lin2 BorderColor = &H00FFC0C0& BorderWidth = 4 Visible = 0 'False X1 = 720 X2 = 720 Y1 = 480 Y2 = 4680 End Begin VB.Line lin1 BorderColor = &H000000FF& BorderWidth = 4 Visible = 0 'False X1 = 360 X2 = 4080 Y1 = 4680 Y2 = 4680 End End Begin VB.Label lblTime Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "0" BeginProperty Font Name = "News Gothic MT" Size = 15.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FF00& Height = 375 Left = 7200 TabIndex = 35 Top = 120 Width = 1815 End Begin VB.Label lblDone BackStyle = 0 'Transparent Height = 375 Left = 120 TabIndex = 34 Top = 6360 Width = 6135 End Begin VB.Label Label3 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Word:" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 240 Left = 360 TabIndex = 33 Top = 2400 Width = 540 End Begin VB.Label Label2 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Subject:" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 240 Left = 360 TabIndex = 32 Top = 1440 Width = 720 End Begin VB.Label lblWord BackColor = &H00FFFFFF& BorderStyle = 1 'Fixed Single BeginProperty Font Name = "Comic Sans MS" Size = 14.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 495 Left = 360 TabIndex = 31 Top = 2640 Width = 3855 End Begin VB.Label lblSubject BackColor = &H00FFFFFF& BorderStyle = 1 'Fixed Single BeginProperty Font Name = "Comic Sans MS" Size = 14.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 495 Left = 360 TabIndex = 30 Top = 1680 Width = 3855 End Begin VB.Label Label1 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "HangMan" BeginProperty Font Name = "Lucida Sans Unicode" Size = 48 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FF0000& Height = 1170 Left = 0 TabIndex = 0 Top = 0 Width = 4500 End Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Dim NumWrong Public Function check() If lblSubject.Caption = "" Then Dim response2 response2 = MsgBox("Would you like to start a new game?", vbYesNo, HangMan) If response2 = 6 Then Form2.Show End If lblDone.Caption = "" Exit Function End If Dim labelword Dim uppercase Dim response uppercase = UCase(hangWord) labelword = Len(lblWord.Caption) If labelword > 0 Then If uppercase = lblWord.Caption Then Form3.Show End If End If Select Case NumWrong Case 1 lin1.Visible = True Case 2 lin2.Visible = True Case 3 lin3.Visible = True Case 4 lin4.Visible = True Case 5 lin5.Visible = True Case 6 lin6.Visible = True Case 7 lin7.Visible = True Case 8 lin8.Visible = True Case 9 lin9.Visible = True Case 10 lin10.Visible = True Case 11 lin11.Visible = True 'this will change "/" into spaces in the string hangWord Dim LenHangWord Dim CharHangWord Dim ST ST = 1 LenHangWord = Len(hangWord) Do Until LenHangWord = 0 CharHangWord = Mid(hangWord, ST, 1) LenHangWord = LenHangWord - 1 If CharHangWord = "/" Then Mid(hangWord, ST) = " " End If ST = ST + 1 Loop Timer1.Enabled = False response = MsgBox("You lost, the word was " + UCase(hangWord) + vbCrLf + "Play again?", vbYesNo, "LOSER") lblSubject.Caption = "" lblWord.Caption = "" hangWord = "" hangSubject = "" If response = 6 Then Command2_Click End If End Select End Function Private Sub cmdA_Click() Dim LenHangWord Dim ST Dim NewHangWord Dim OKnow Dim CharHangWord ST = 1 LenHangWord = Len(hangWord) Do Until LenHangWord = 0 CharHangWord = Mid(hangWord, ST, 1) LenHangWord = LenHangWord - 1 If CharHangWord = "a" Then Dim MyString MyString = lblWord.Caption Mid(MyString, ST) = "A" lblWord.Caption = MyString OKnow = 1 End If ST = ST + 1 Loop If OKnow = 0 Then NumWrong = NumWrong + 1 End If check lblDone.Caption = lblDone + " A" End Sub Private Sub cmdB_Click() Dim LenHangWord Dim ST, OKnow Dim NewHangWord ST = 1 LenHangWord = Len(hangWord) Do Until LenHangWord = 0 Dim CharHangWord CharHangWord = Mid(hangWord, ST, 1) LenHangWord = LenHangWord - 1 If CharHangWord = "b" Then Dim MyString MyString = lblWord.Caption Mid(MyString, ST) = "B" ' MyString = "The fox jumps". lblWord.Caption = MyString ' Initialize string. OKnow = 1 End If ST = ST + 1 Loop If OKnow = 0 Then NumWrong = NumWrong + 1 End If lblDone.Caption = lblDone + " B" check End Sub Private Sub cmdC_Click() Dim LenHangWord Dim ST, OKnow Dim NewHangWord ST = 1 LenHangWord = Len(hangWord) Do Until LenHangWord = 0 Dim CharHangWord CharHangWord = Mid(hangWord, ST, 1) LenHangWord = LenHangWord - 1 If CharHangWord = "c" Then Dim MyString MyString = lblWord.Caption Mid(MyString, ST) = "C" ' MyString = "The fox jumps". lblWord.Caption = MyString ' Initialize string. OKnow = 1 End If ST = ST + 1 Loop If OKnow = 0 Then NumWrong = NumWrong + 1 End If lblDone.Caption = lblDone + " C" check End Sub Private Sub cmdD_Click() Dim LenHangWord Dim ST, OKnow Dim NewHangWord ST = 1 LenHangWord = Len(hangWord) Do Until LenHangWord = 0 Dim CharHangWord CharHangWord = Mid(hangWord, ST, 1) LenHangWord = LenHangWord - 1 If CharHangWord = "d" Then Dim MyString MyString = lblWord.Caption Mid(MyString, ST) = "D" ' MyString = "The fox jumps". lblWord.Caption = MyString ' Initialize string. OKnow = 1 End If ST = ST + 1 Loop If OKnow = 0 Then NumWrong = NumWrong + 1 End If lblDone.Caption = lblDone + " D" check End Sub Private Sub cmdE_Click() Dim LenHangWord Dim ST, OKnow Dim NewHangWord ST = 1 LenHangWord = Len(hangWord) Do Until LenHangWord = 0 Dim CharHangWord CharHangWord = Mid(hangWord, ST, 1) LenHangWord = LenHangWord - 1 If CharHangWord = "e" Then Dim MyString MyString = lblWord.Caption Mid(MyString, ST) = "E" ' MyString = "The fox jumps". lblWord.Caption = MyString ' Initialize string. OKnow = 1 End If ST = ST + 1 Loop If OKnow = 0 Then NumWrong = NumWrong + 1 End If lblDone.Caption = lblDone + " E" check End Sub Private Sub cmdF_Click() Dim LenHangWord Dim ST, OKnow Dim NewHangWord ST = 1 LenHangWord = Len(hangWord) Do Until LenHangWord = 0 Dim CharHangWord CharHangWord = Mid(hangWord, ST, 1) LenHangWord = LenHangWord - 1 If CharHangWord = "f" Then Dim MyString MyString = lblWord.Caption Mid(MyString, ST) = "F" ' MyString = "The fox jumps". lblWord.Caption = MyString ' Initialize string. OKnow = 1 End If ST = ST + 1 Loop If OKnow = 0 Then NumWrong = NumWrong + 1 End If lblDone.Caption = lblDone + " F" check End Sub Private Sub cmdG_Click() Dim LenHangWord Dim ST, OKnow Dim NewHangWord ST = 1 LenHangWord = Len(hangWord) Do Until LenHangWord = 0 Dim CharHangWord CharHangWord = Mid(hangWord, ST, 1) LenHangWord = LenHangWord - 1 If CharHangWord = "g" Then Dim MyString MyString = lblWord.Caption Mid(MyString, ST) = "G" ' MyString = "The fox jumps". lblWord.Caption = MyString ' Initialize string. OKnow = 1 End If ST = ST + 1 Loop If OKnow = 0 Then NumWrong = NumWrong + 1 End If lblDone.Caption = lblDone + " G" check End Sub Private Sub cmdH_Click() Dim LenHangWord Dim ST, OKnow Dim NewHangWord ST = 1 LenHangWord = Len(hangWord) Do Until LenHangWord = 0 Dim CharHangWord CharHangWord = Mid(hangWord, ST, 1) LenHangWord = LenHangWord - 1 If CharHangWord = "h" Then Dim MyString MyString = lblWord.Caption Mid(MyString, ST) = "H" ' MyString = "The fox jumps". lblWord.Caption = MyString ' Initialize string. OKnow = 1 End If ST = ST + 1 Loop If OKnow = 0 Then NumWrong = NumWrong + 1 End If lblDone.Caption = lblDone + " H" check End Sub Private Sub cmdI_Click() Dim LenHangWord Dim ST, OKnow Dim NewHangWord ST = 1 LenHangWord = Len(hangWord) Do Until LenHangWord = 0 Dim CharHangWord CharHangWord = Mid(hangWord, ST, 1) LenHangWord = LenHangWord - 1 If CharHangWord = "i" Then Dim MyString MyString = lblWord.Caption Mid(MyString, ST) = "I" ' MyString = "The fox jumps". lblWord.Caption = MyString ' Initialize string. OKnow = 1 End If ST = ST + 1 Loop If OKnow = 0 Then NumWrong = NumWrong + 1 End If lblDone.Caption = lblDone + " I" check End Sub Private Sub cmdJ_Click() Dim LenHangWord Dim ST, OKnow Dim NewHangWord ST = 1 LenHangWord = Len(hangWord) Do Until LenHangWord = 0 Dim CharHangWord CharHangWord = Mid(hangWord, ST, 1) LenHangWord = LenHangWord - 1 If CharHangWord = "j" Then Dim MyString MyString = lblWord.Caption Mid(MyString, ST) = "J" ' MyString = "The fox jumps". lblWord.Caption = MyString ' Initialize string. OKnow = 1 End If ST = ST + 1 Loop If OKnow = 0 Then NumWrong = NumWrong + 1 End If lblDone.Caption = lblDone + " J" check End Sub Private Sub cmdK_Click() Dim LenHangWord Dim ST, OKnow Dim NewHangWord ST = 1 LenHangWord = Len(hangWord) Do Until LenHangWord = 0 Dim CharHangWord CharHangWord = Mid(hangWord, ST, 1) LenHangWord = LenHangWord - 1 If CharHangWord = "k" Then Dim MyString MyString = lblWord.Caption Mid(MyString, ST) = "K" ' MyString = "The fox jumps". lblWord.Caption = MyString ' Initialize string. OKnow = 1 End If ST = ST + 1 Loop If OKnow = 0 Then NumWrong = NumWrong + 1 End If lblDone.Caption = lblDone + " K" check End Sub Private Sub cmdL_Click() Dim LenHangWord Dim ST, OKnow Dim NewHangWord ST = 1 LenHangWord = Len(hangWord) Do Until LenHangWord = 0 Dim CharHangWord CharHangWord = Mid(hangWord, ST, 1) LenHangWord = LenHangWord - 1 If CharHangWord = "l" Then Dim MyString MyString = lblWord.Caption Mid(MyString, ST) = "L" ' MyString = "The fox jumps". lblWord.Caption = MyString ' Initialize string. OKnow = 1 End If ST = ST + 1 Loop If OKnow = 0 Then NumWrong = NumWrong + 1 End If lblDone.Caption = lblDone + " L" check End Sub Private Sub cmdM_Click() Dim LenHangWord Dim ST, OKnow Dim NewHangWord ST = 1 LenHangWord = Len(hangWord) Do Until LenHangWord = 0 Dim CharHangWord CharHangWord = Mid(hangWord, ST, 1) LenHangWord = LenHangWord - 1 If CharHangWord = "m" Then Dim MyString MyString = lblWord.Caption Mid(MyString, ST) = "M" ' MyString = "The fox jumps". lblWord.Caption = MyString ' Initialize string. OKnow = 1 End If ST = ST + 1 Loop If OKnow = 0 Then NumWrong = NumWrong + 1 End If lblDone.Caption = lblDone + " M" check End Sub Private Sub cmdN_Click() Dim LenHangWord Dim ST, OKnow Dim NewHangWord ST = 1 LenHangWord = Len(hangWord) Do Until LenHangWord = 0 Dim CharHangWord CharHangWord = Mid(hangWord, ST, 1) LenHangWord = LenHangWord - 1 If CharHangWord = "n" Then Dim MyString MyString = lblWord.Caption Mid(MyString, ST) = "N" ' MyString = "The fox jumps". lblWord.Caption = MyString ' Initialize string. OKnow = 1 End If ST = ST + 1 Loop If OKnow = 0 Then NumWrong = NumWrong + 1 End If lblDone.Caption = lblDone + " N" check End Sub Private Sub cmdO_Click() Dim LenHangWord Dim ST, OKnow Dim NewHangWord ST = 1 LenHangWord = Len(hangWord) Do Until LenHangWord = 0 Dim CharHangWord CharHangWord = Mid(hangWord, ST, 1) LenHangWord = LenHangWord - 1 If CharHangWord = "o" Then Dim MyString MyString = lblWord.Caption Mid(MyString, ST) = "O" ' MyString = "The fox jumps". lblWord.Caption = MyString ' Initialize string. OKnow = 1 End If ST = ST + 1 Loop If OKnow = 0 Then NumWrong = NumWrong + 1 End If lblDone.Caption = lblDone + " O" check End Sub Private Sub cmdP_Click() Dim LenHangWord Dim ST, OKnow Dim NewHangWord ST = 1 LenHangWord = Len(hangWord) Do Until LenHangWord = 0 Dim CharHangWord CharHangWord = Mid(hangWord, ST, 1) LenHangWord = LenHangWord - 1 If CharHangWord = "p" Then Dim MyString MyString = lblWord.Caption Mid(MyString, ST) = "P" ' MyString = "The fox jumps". lblWord.Caption = MyString ' Initialize string. OKnow = 1 End If ST = ST + 1 Loop If OKnow = 0 Then NumWrong = NumWrong + 1 End If lblDone.Caption = lblDone + " P" check End Sub Private Sub cmdQ_Click() Dim LenHangWord Dim ST, OKnow Dim NewHangWord ST = 1 LenHangWord = Len(hangWord) Do Until LenHangWord = 0 Dim CharHangWord CharHangWord = Mid(hangWord, ST, 1) LenHangWord = LenHangWord - 1 If CharHangWord = "q" Then Dim MyString MyString = lblWord.Caption Mid(MyString, ST) = "Q" ' MyString = "The fox jumps". lblWord.Caption = MyString ' Initialize string. OKnow = 1 End If ST = ST + 1 Loop If OKnow = 0 Then NumWrong = NumWrong + 1 End If check lblDone.Caption = lblDone + " Q" End Sub Private Sub cmdR_Click() Dim LenHangWord Dim ST, OKnow Dim NewHangWord ST = 1 LenHangWord = Len(hangWord) Do Until LenHangWord = 0 Dim CharHangWord CharHangWord = Mid(hangWord, ST, 1) LenHangWord = LenHangWord - 1 If CharHangWord = "r" Then Dim MyString MyString = lblWord.Caption Mid(MyString, ST) = "R" ' MyString = "The fox jumps". lblWord.Caption = MyString ' Initialize string. OKnow = 1 End If ST = ST + 1 Loop If OKnow = 0 Then NumWrong = NumWrong + 1 End If lblDone.Caption = lblDone + " R" check End Sub Private Sub cmdS_Click() Dim LenHangWord Dim ST, OKnow Dim NewHangWord ST = 1 LenHangWord = Len(hangWord) Do Until LenHangWord = 0 Dim CharHangWord CharHangWord = Mid(hangWord, ST, 1) LenHangWord = LenHangWord - 1 If CharHangWord = "s" Then Dim MyString MyString = lblWord.Caption Mid(MyString, ST) = "S" ' MyString = "The fox jumps". lblWord.Caption = MyString ' Initialize string. OKnow = 1 End If ST = ST + 1 Loop If OKnow = 0 Then NumWrong = NumWrong + 1 End If lblDone.Caption = lblDone + " S" check End Sub Private Sub cmdT_Click() Dim LenHangWord Dim ST, OKnow Dim NewHangWord ST = 1 LenHangWord = Len(hangWord) Do Until LenHangWord = 0 Dim CharHangWord CharHangWord = Mid(hangWord, ST, 1) LenHangWord = LenHangWord - 1 If CharHangWord = "t" Then Dim MyString MyString = lblWord.Caption Mid(MyString, ST) = "T" ' MyString = "The fox jumps". lblWord.Caption = MyString ' Initialize string. OKnow = 1 End If ST = ST + 1 Loop If OKnow = 0 Then NumWrong = NumWrong + 1 End If lblDone.Caption = lblDone + " T" check End Sub Private Sub cmdU_Click() Dim LenHangWord Dim ST, OKnow Dim NewHangWord ST = 1 LenHangWord = Len(hangWord) Do Until LenHangWord = 0 Dim CharHangWord CharHangWord = Mid(hangWord, ST, 1) LenHangWord = LenHangWord - 1 If CharHangWord = "u" Then Dim MyString MyString = lblWord.Caption Mid(MyString, ST) = "U" ' MyString = "The fox jumps". lblWord.Caption = MyString ' Initialize string. OKnow = 1 End If ST = ST + 1 Loop If OKnow = 0 Then NumWrong = NumWrong + 1 End If lblDone.Caption = lblDone + " U" check End Sub Private Sub cmdV_Click() Dim LenHangWord Dim ST, OKnow Dim NewHangWord ST = 1 LenHangWord = Len(hangWord) Do Until LenHangWord = 0 Dim CharHangWord CharHangWord = Mid(hangWord, ST, 1) LenHangWord = LenHangWord - 1 If CharHangWord = "v" Then Dim MyString MyString = lblWord.Caption Mid(MyString, ST) = "V" ' MyString = "The fox jumps". lblWord.Caption = MyString ' Initialize string. OKnow = 1 End If ST = ST + 1 Loop If OKnow = 0 Then NumWrong = NumWrong + 1 End If lblDone.Caption = lblDone + " V" check End Sub Private Sub cmdW_Click() Dim LenHangWord Dim ST, OKnow Dim NewHangWord ST = 1 LenHangWord = Len(hangWord) Do Until LenHangWord = 0 Dim CharHangWord CharHangWord = Mid(hangWord, ST, 1) LenHangWord = LenHangWord - 1 If CharHangWord = "w" Then Dim MyString MyString = lblWord.Caption Mid(MyString, ST) = "W" ' MyString = "The fox jumps". lblWord.Caption = MyString ' Initialize string. OKnow = 1 End If ST = ST + 1 Loop If OKnow = 0 Then NumWrong = NumWrong + 1 End If lblDone.Caption = lblDone + " W" check End Sub Private Sub cmdX_Click() Dim LenHangWord Dim ST, OKnow Dim NewHangWord ST = 1 LenHangWord = Len(hangWord) Do Until LenHangWord = 0 Dim CharHangWord CharHangWord = Mid(hangWord, ST, 1) LenHangWord = LenHangWord - 1 If CharHangWord = "x" Then Dim MyString MyString = lblWord.Caption Mid(MyString, ST) = "X" ' MyString = "The fox jumps". lblWord.Caption = MyString ' Initialize string. OKnow = 1 End If ST = ST + 1 Loop If OKnow = 0 Then NumWrong = NumWrong + 1 End If check lblDone.Caption = lblDone + " X" End Sub Private Sub cmdY_Click() Dim LenHangWord Dim ST, OKnow Dim NewHangWord ST = 1 LenHangWord = Len(hangWord) Do Until LenHangWord = 0 Dim CharHangWord CharHangWord = Mid(hangWord, ST, 1) LenHangWord = LenHangWord - 1 If CharHangWord = "y" Then Dim MyString MyString = lblWord.Caption Mid(MyString, ST) = "Y" ' MyString = "The fox jumps". lblWord.Caption = MyString ' Initialize string. OKnow = 1 End If ST = ST + 1 Loop If OKnow = 0 Then NumWrong = NumWrong + 1 End If check lblDone.Caption = lblDone + " Y" End Sub Private Sub cmdZ_Click() Dim LenHangWord Dim ST, OKnow Dim NewHangWord ST = 1 LenHangWord = Len(hangWord) Do Until LenHangWord = 0 Dim CharHangWord CharHangWord = Mid(hangWord, ST, 1) LenHangWord = LenHangWord - 1 If CharHangWord = "z" Then Dim MyString MyString = lblWord.Caption Mid(MyString, ST) = "Z" ' MyString = "The fox jumps". lblWord.Caption = MyString ' Initialize string. OKnow = 1 End If ST = ST + 1 Loop If OKnow = 0 Then NumWrong = NumWrong + 1 End If lblDone.Caption = lblDone + " Z" check End Sub Private Sub Command1_Click() frmSplash.Show End Sub Private Sub Command2_Click() Form2.Show lblWord.Caption = "" lblSubject.Caption = "" NumWrong = 0 lblDone.Caption = "" Timer1.Enabled = False End Sub Private Sub Form_Load() NumWrong = 0 Form4.Show End Sub Private Sub lblSubject_Change() NumWrong = 0 lblDone.Caption = "" lin1.Visible = False lin2.Visible = False lin3.Visible = False lin4.Visible = False lin5.Visible = False lin6.Visible = False lin7.Visible = False lin8.Visible = False lin9.Visible = False lin10.Visible = False lin11.Visible = False If Len(lblSubject.Caption) > 0 Then lblTime = "0" Timer1.Enabled = True End If End Sub Private Sub Timer1_Timer() lblTime = lblTime + 1 If lblTime = 60 Then MsgBox "You are too slow - try again" Timer1.Enabled = False End If Form1.Enabled = True End Sub